home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlondesBrunettes.dxr / Internal_64_stock pile.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  503 b   |  19 lines
  1. global stock, waste
  2.  
  3. on mouseDown me
  4.   global stock, waste, deals
  5.   if member(sprite(me.spriteNum).memberNum).name = "backofcard" then
  6.     puppetSound(3, "deal card")
  7.     sprite(37).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  8.     if sprite(37).visible = 0 then
  9.       sprite(37).visible = 1
  10.     end if
  11.     waste.append(new(script("card"), 37))
  12.     stock.cards.deleteAt(1)
  13.     if stock.cards.count = 0 then
  14.       sprite(me.spriteNum).member = "stop"
  15.       checklose()
  16.     end if
  17.   end if
  18. end
  19.